home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_20_1987_Transactor_Publishing.d64 / default demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  965b  |  28 lines
  1. 10 rem* default demo -- july 1987
  2. 20 rem* by amir michail
  3. 30 rem* saves and reads default values
  4. 40 rem* from last block of program
  5. 50 :
  6. 100 z$=chr$(0): open 15,8,15
  7. 110 open 2,8,2,"#"
  8. 120 rem read values from disk buffer
  9. 130 print#15,"m-r"chr$(24)chr$(0)chr$(2)
  10. 140 get#15,t$,s$:t=asc(t$+z$):s=asc(s$+z$)
  11. 150 print#15,"b-p";2;2
  12. 170 get#2,c1$,c2$,c3$
  13. 180 poke53281,asc(c1$+z$):poke53280,asc(c2$+z$):poke646,asc(c3$+z$)
  14. 195 close2:close15
  15. 210 print ,"change color defaults";
  16. 220 input k$:if k$="n" then 320
  17. 230 input "background, border, text colors:";c1,c2,c3
  18. 240 poke53281,c1:poke53280,c2:poke646,c3
  19. 250 open15,8,15:open2,8,2,"#"
  20. 260 rem write values to last sector
  21. 270 print#15,"b-p";2;2
  22. 280 print#2,chr$(c1)chr$(c2)chr$(c3);
  23. 290 print#15,"u2";2;0;t;s
  24. 300 print "done!"
  25. 310 close2:close15
  26. 320 print "program can start from this point."
  27. 330 end
  28.